1: 建立类，在类模块插入类模块，命名mywb

      2：在mywb类模块中建立方法 test

     Function test(a As Integer, b As Integer, c As Integer)

    Dim sum As Integer

     sum = a + 2 * b + 3 * c

     test = sum

      End Function

函数的返回值可以通过直接赋值的形式进行返回，返回可以是具体数值，也可以是具体的数组值等。

在一个类中可以定义许多类似test的方法

3：在模块中建立模块，命名wb

4：在wb模块中，调用类之前，必须声明mywb类的实例

     ‘声明类实例

    Public mywbo as new mywb

     ‘建立函数wenbo调用 类模块

       Sub wenbo（）

          Dim temp as integer

      temp=mywbo.test(1,2,3)

      debug.print temp

       End sub

   运行后，屏幕会显示结果14

5：参数传递“:=”方法

类参数传递时，一种方法是如上例所示，也可以不考虑参数的数序，

temp=mywbo.test(b:=2,c:=3,a:=1)

最终显示的结果仍然是14.

当函数变量比较多时，最好通过后面的方法，即”:=”的方法，直接对函数的参数变量进行传递数值，该方法可以不考虑参数的具体位置顺序，也比较好记。

比如说一个函数有10个参数，调用时，可能此次需要传递的赋值只有三个，那么调用时直接对这三个参数进行“:=”的方法进行传递数值就可以，而不用把10个参数都列上

 6: 当传递多个参数时，可以考虑optional 属性,optional 属性的参数必须放在其他必备参数之后。

Function test(a As Integer, b As Integer, c As Integer, optional d as integer，optional e as integer)

Dim sum As Integer

sum = a + 2 * b + 3 * c+4*d+5*e

test = sum

End Function

调用时，对